Option Explicit
Sub D_Sample002()
    Dim myRng As Range
    Set myRng = Range("A1")				'Nxs
    'ǳƨ즹
    If myRng.MergeArea.Address = myRng.Address Then
        MsgBox "HxsäOXxs檺@"
    Else
        myRng.MergeArea.MergeCells = False
    'myRng.MergeArea.UnMerge
End If
    Set myRng = Nothing					'
End Sub

